home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / shgmdemo / install / inst.mst < prev    next >
Encoding:
Text File  |  1995-05-31  |  45.5 KB  |  1,400 lines
  1. '**************************************************************************
  2. '*  MS Test script for Win32s, WinG, and Shanghai Great Moments
  3. '**************************************************************************
  4.  
  5. ''$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. ''XXX
  8. ''$define   MYDEBUG '' define for script development'
  9.  
  10. '$INCLUDE 'setupapi.inc'
  11. '$INCLUDE 'msdetect.inc'
  12.  
  13. '*-------------------------------[ Constants ]------------------------------*'
  14. const MIN_DRIVE_SPACE           = 12000000  '' 12 megs
  15. const LOGO                      = 1         ''Bitmap ID
  16. const InfFile$                  = "shgm.inf"   '
  17. const ErrStr$                   = "**** ERROR ****: "
  18. const CUIDLL$                   = "mscuistf.dll"
  19.  
  20. const hlpOFFSET                 = 10    '' add to dialog ID to get help dlg ID
  21.  
  22. const verNOT_EXIST              = 0
  23. const verIS_OLDER               = 1
  24. const verINCOMPLETE             = 2
  25. const verSAME_BUT_MISSING       = 3
  26. const verSAME_AND_VALID         = 4
  27. const verIS_NEWER               = 5
  28.  
  29.  
  30. '*-------------------------------[ Dialog IDs ]-----------------------------*'
  31.  
  32. const dlgWELCOME                = 100   '' Welcome dialog box
  33. const hlpWELCOME                = 110   '' Help msgbox for welcome dialog
  34.  
  35. const dlgASKQUIT                = 200   '' Confirm quit install dialog
  36.  
  37. ''Finished! dialog boxes
  38. ''
  39. const EXITSUCCESS               = 700   '' Successful install msgbox
  40. const   dlgOK_NEED_W32S_WING    = 710   '' Install ok, but still need WinG/W32s
  41. const   dlgOK_NEED_W32S         = 720   '' Install ok, but still need W32s
  42. const   dlgOK_NEED_WING         = 730   '' Install ok, but still need WinG
  43.  
  44. '' Final dialog boxes
  45. ''
  46. const dlgRESTART_MUST           = 740
  47. const dlgRESTART_PLEASE         = 750
  48.  
  49. const dlgBADDISKSPACE           = 10000 '' insufficient space on disk
  50. const dlgBADDISKSPACEEXT        = 10010 '' insufficient space on disk for
  51.                                         '' extensions
  52. const dlgBADPATH                = 10100 '' bad path msgbox
  53. const dlgBADDRIVE               = 10110 '' bad drive msgbox
  54.  
  55. '' Status dialog boxes
  56. const dlgSCANW32S               = 300   '' Checking for Win32s files
  57. const dlgSCANWING               = 301   '' Checking for WinG files
  58. const dlgCHECKSPACE             = 350   '' Checking disk space
  59.  
  60.  
  61. '' Notify install/skip-install dialogs
  62. ''
  63. const dlgW32S                   = 5000
  64. const dlgWING                   = 5100
  65. const dlgSHGM                   = 5200  '' this one asks for destination path
  66.  
  67. const dlgNO_SHARE               = 1330  ''
  68. const hlpNO_SHARE               = 1010  '' Help msgbox for no-share warning
  69.  
  70. '' Confirmation dialog boxes
  71. ''
  72. const dlgCONFIRM_OVER_W32S      = 2000
  73. const dlgCONFIRM_OVER_WING      = 2010
  74.  
  75. const dlgCONFIRM_SKIP_W32S      = 2100
  76. const dlgCONFIRM_SKIP_WING      = 2110
  77.  
  78.  
  79. '' Install failure codes that also correspond to dialog msgbox id numbers
  80. ''
  81. const exitFAILURE               = 400   '' generic Failure msgbox
  82. const exitFAILW32S              = 410   '' Win32s install failure
  83. const exitFAILWING              = 420   '' WinG install failure
  84. const exitFAILSHGM              = 430   '' SHGM install failure
  85. const exitQUIT                  = 600   '' User quit install msgbox
  86.  
  87. '' System config errors that cause install failure
  88. ''
  89. const sysfailNOTWIN31           = 1200  ''
  90. const sysfailNOTENH             = 1300  '' Not enhanced mode Win3.1x failure
  91. const sysfailNOTPAGING          = 1325  '' No VM enabled failure
  92. const sysfailNOTINTEL           = 1350
  93. const sysFAILRUNAPP             = 1360  '' Win32s failure (Win32s active)
  94. const sysfailNT31               = 1365  '' version of NT was less than 3.5
  95. const sysfail256COLOR           = 1370  '' 256 color mode not detected
  96.  
  97. const verSKU$                   = "SKU" '' Main SKU
  98. const verPOP$                   = "POP" '' POP demo
  99. const verCVR$                   = "CVR" '' Cover demo
  100.  
  101. '*------------------------------[ Misc Globals ]----------------------------*'
  102. global driveWinSys$         '' Drive Windows is on
  103. global dirWinSys$           '' Windows\System directory.
  104. global dirWinSysWin32s$     '' Windows\System\Win32s directory
  105. global dirSHGM$             '' SHGM destination directory
  106. global SrcDir$              '' Source directory (where the .INF file is)
  107.  
  108. '' status flags
  109. global onWin31%             '' 0 = not 3.1x, 1 = on Win3.1x
  110. global win32Enabled%        '' 0 = not enabled, 1 = enabled
  111. global prevW32s%            '' set to one of the ver?????? constants
  112. global prevWinG%            '' set to one of the ver?????? constants
  113.  
  114. global szW32OldVer$
  115.  
  116. global boolLog%             '' 0 = logfile closed, 1 = logfile open
  117.  
  118. global instVers$
  119.  
  120. '*-------------------------------[ Prototypes ]-----------------------------*'
  121. declare sub InstallWin32sFiles
  122. declare sub InstallWinGFiles
  123. declare sub InstallSHGMFiles
  124.  
  125. declare function RebootSystem AS INTEGER
  126. declare function MakePath (szDir$, szFile$) AS STRING
  127.  
  128. declare sub dputs(arg1$)    '' print string to logfile or debug screen with '\n'
  129.  
  130. declare sub W32SAddToCopyList
  131. declare sub WINGAddToCopyList
  132. declare sub SHGMAddToCopyList
  133.  
  134. declare function InstallVFlatD as integer
  135.  
  136. declare function DoesSectionFilesExist(szSection$,szDirPath$,dlgID%) as integer
  137.  
  138. declare function Have256Colors as integer
  139.  
  140. declare function ConfirmDialog(dlgID%) as integer
  141.  
  142. '*-------------------------[ External DLL functions ]-----------------------*'
  143. '$ifdef MYDEBUG
  144. declare function OutputDebugString LIB "KRNL386.EXE" (arg1$) as integer
  145. '$endif
  146.  
  147. declare function OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  148. declare function PagingEnabled LIB "INIUPD.DLL" AS INTEGER
  149. declare function ShareEnabled LIB "INIUPD.DLL" AS INTEGER
  150. declare function IsWin32sLoaded LIB "INIUPD.DLL" (arg1$) AS INTEGER
  151. declare function IsRunningApp LIB "INIUPD.DLL" AS INTEGER
  152.  
  153. declare function SetCuiFlags LIB "MSCUISTF.DLL" (arg1%, arg2%) AS INTEGER
  154.  
  155. declare function ExitWindowsExec LIB "USER.EXE" (arg1$, arg2$) AS INTEGER
  156.  
  157. '' WinG stuff
  158. declare function VflatdPresent LIB "setuphlp.DLL" AS INTEGER
  159. declare function RestartWindows LIB "setuphlp.DLL" AS INTEGER
  160. ''declare function OnWin3x LIB "setuphlp.DLL" AS INTEGER
  161. ''declare function GetRealSystemDir LIB "setuphlp.DLL" (szDir$,cbBuf%) AS INTEGER
  162. ''declare function IsWin32FileNewer LIB "setuphlp.DLL" (szOrig$,szNew$) AS INTEGER
  163. ''declare sub RenameFilePlease LIB "setuphlp.DLL" (szOrig$,szNew$)
  164.  
  165.  
  166. '' Custom stuff in UTILS.DLL to update SYSTEM.INI
  167. declare function UpdateIniW32S LIB "utils.dll" as integer
  168. declare function UpdateIniWING LIB "utils.dll" as integer
  169.  
  170. '*----------------------------[ Start of script ]---------------------------*'
  171. INIT:
  172.     HELPPROC$     = "FHelpDlgProc"      '' Help dialog procedure
  173.     szW32OldVer$  = "1.00.000     "     '' Reserve space in string for version
  174.     szW32sOldJVer$ = "1.15.103.0"
  175.     szW32sCurJVer$ = "1.16.103.0"
  176.     '' bools
  177.     onWin31%      = 0
  178.     win32Enabled% = 0
  179.  
  180.     '' flags to indicate existence or previous versions
  181.     prevW32s%     = ver_NOT_EXIST
  182.     prevWinG%     = ver_NOT_EXIST
  183.  
  184.     okW32S%       = 0
  185.     okWING%       = 0
  186.     okSHGM%       = 0
  187.  
  188.     instW32S%     = 0
  189.     instWING%     = 0
  190.     instSHGM%     = 0
  191.  
  192.     doAddDVA%     = 0
  193.  
  194.     warnNeedW32S% = 0
  195.     warnNeedWING% = 0
  196.  
  197.     systemIniBackedUp% = 0
  198.  
  199.     ON ERROR goto ERRNORMAL
  200.  
  201.     '' Read in the .INF file
  202.     ''
  203.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  204.  
  205.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  206.     if szInf$ = "" then
  207.         szInf$ = GetSymbolValue("STF_CWDDIR") + InfFile$
  208.     endif
  209.     ReadInfFile szInf$
  210.  
  211.     '' Setup a pretty looking screen :)
  212.     ''
  213.     SetBitmap CUIDLL$, LOGO
  214.     SetTitle "ÅπèCâOâîü[âgüEâéü[âüâôâc ÄGÄÅùpæ╠î▒ö┼ âZâbâgâAâbâv"
  215.  
  216.     '' Determine install type
  217.     instVers$ = GetSymbolValue("VER_INSTALL")
  218.  
  219.     '' Determine install directories
  220.     ''
  221.     dirWinSys$ = GetWindowsSysDir()
  222.     dirWinSysWin32s$ = dirWinSys$ + "WIN32S\"
  223.     driveWinSys$ = MID$(GetWindowsDir, 1, 1)
  224.  
  225.     driveNeeds$ = "DriveNeeds"
  226.  
  227. '$IFDEF DEBUG
  228.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  229.     driveWinSys$ = MID$(GetWindowsDir, 1, 1)
  230.     if IsDriveValid(driveWinSys$) = 0 then
  231.         i% = DoMsgBox("Windows drive ('"+driveWinSys$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  232.         goto Quit
  233.     endif
  234. '$ENDIF ''DEBUG
  235.  
  236.     ExitCode% = EXITSUCCESS
  237.  
  238. '*-------------------------[ Check Min Requirements ]-----------------------*'
  239.     '' Can not run on versions less than 3.10.
  240.     dputs("---- Checking Windows version")
  241.     if GetWindowsMajorVersion < 3 then
  242.         dputs(ErrStr$ + "Windows version less than 3.1")
  243.         ExitCode% = sysfailNOTWIN31
  244.         goto Quit
  245.     endif
  246.  
  247.     if GetWindowsMajorVersion = 3 AND GetWindowsMinorVersion < 10 then
  248.         dputs(ErrStr$ + "Windows version less than 3.1")
  249.         ExitCode% = sysfailNOTWIN31
  250.         goto Quit
  251.     endif
  252.  
  253.     '' Make sure we're not in standard mode, nor are we on a RISC system
  254.     if GetWindowsMode < 2  then
  255.         if OnWindowsNT() then
  256.             dputs(ErrStr$ + "RISC computer running Windows NT (only Intel supported)")
  257.             ExitCode% = sysfailNOTINTEL '' Running on Windows NT (on RISC)
  258.         else
  259.             dputs(ErrStr$ + "Standard mode Windows detected")
  260.             ExitCode% = sysfailNOTENH   '' Standard Mode Windows
  261.         endif
  262.         goto Quit
  263.     endif
  264.  
  265.     '' Make sure display is configured for 256 color mode
  266.     if Have256Colors = 0 then
  267.         dputs("Display not configured for 256 color mode")
  268.         ExitCode% = sysfail256COLOR
  269.         goto Quit
  270.     else
  271.         dputs("Display configured for 256 color mode")
  272.     endif
  273.  
  274.  
  275. '*-------------------------[ Get program directory ]------------------------*'
  276. PromptInstall:
  277.     i% = SetCuiFlags(0,0)
  278.     sz$ = UIStartDlg(CUIDLL$, dlgWELCOME, "FInfoDlgProc", hlpWELCOME, HELPPROC$)
  279.     if sz$ = "CONTINUE" then
  280.         UIPop 1
  281.     else
  282.         gosub AskQuit
  283.         goto PromptInstall
  284.     endif
  285.  
  286.     '' Determine available drives
  287.     driveList$ = "DrivesList"
  288.     GetLocalHardDrivesList(driveList$)
  289.  
  290. GetSHGMDest:
  291.     numDrives% = GetListLength(driveList$)
  292.     dirSHGM$ = ""
  293.     if (numDrives% <> 0) then
  294.         for i%= 1 to numDrives% step 1
  295.             sz$ = GetListItem(driveList$,i%)
  296.             avail& = GetFreeSpaceForDrive(sz$)
  297.             if avail& >= MIN_DRIVE_SPACE then
  298.                 dirSHGM$ = sz$ + ":\SHGMJC\"
  299.                 exit for
  300.             endif
  301.         next i%
  302.     endif
  303.  
  304.     if dirSHGM$ = "" then
  305.         dirSHGM$ = driveWinSys$ + ":\SHGMJC\"
  306.     endif
  307.  
  308.     SetSymbolValue "EditTextIn", dirSHGM$
  309.     SetSymbolValue "EditFocus", "END"
  310. GetSHGMDest1:
  311.     sz$ = UIStartDlg(CUIDLL$, dlgSHGM, "FEditDlgProc", dlgSHGM + hlpOFFSET, HELPPROC$)
  312.     if sz$ = "CONTINUE" then
  313.         dirSHGM$ = GetSymbolValue("EditTextOut")
  314.         dirSHGM$ = LTRIM$(RTRIM$(dirSHGM$))
  315.          
  316.         '' Validate new drive
  317.         w$ = MID$(dirSHGM$,1,1)
  318.         if IsDriveValid(w$) = 0 then
  319.             gosub BadDrive
  320.             goto GetSHGMDest1
  321.         endif
  322.         
  323.         ''Validate new path.
  324.         if IsDirWritable(dirSHGM$) = 0 then
  325.             gosub BadPath
  326.             goto GetSHGMDest1
  327.         endif
  328.  
  329.  
  330.         '' Make sure drive has sufficient free space
  331.         '' Making sure we take into account an already existent
  332.         '' SH3.DS file
  333.         ''
  334.         i% = GetDrive
  335.         needed& = MIN_DRIVE_SPACE
  336.         szDS$ = MakePath(MakePath(dirSHGM$,"DATA"),"SH3.DS")
  337.         if DoesFileExist(szDS$,femExists) = 1 then
  338.             if GetSizeOfFile(szDS$) > needed& then
  339.                 '' EEK!
  340.                 gosub BadDriveSpace
  341.                 goto GetSHGMDest1
  342.             else
  343.                 needed& = needed& - GetSizeOfFile(szDS$)
  344.             endif
  345.         endif
  346.         szDS$ = ""
  347.  
  348.         if GetFreeSpaceForDrive(w$) < needed& then
  349.             gosub BadDriveSpace
  350.             goto GetSHGMDest1
  351.         endif
  352.         
  353.         UIPop 1
  354.     elseif sz$ = "REACTIVATE" then
  355.         goto GetSHGMDest1
  356.     else
  357.         gosub AskQuit
  358.         goto GetSHGMDest
  359.     endif
  360.  
  361.  
  362.     '' Create the directory if possible
  363.     ExitCode% = exitFAILSHGM
  364.  
  365. ''XXX
  366. ''    sz$ = MakePath(dirSHGM$,"SHGM")
  367. ''    if DoesDirExist(sz$) = 0 then
  368.     if DoesDirExist(dirSHGM$) = 0 then
  369.         CreateDir dirSHGM$, cmoNone
  370.     endif
  371.     '' Terminate if unhandled fatal error
  372.     if ERR <> 0 then
  373.         goto Quit
  374.     endif
  375.  
  376.     '' Open logfile
  377.     OpenLogFile MakePath(dirSHGM$,"SHGM.LOG"), 0
  378.     boolLog% = 1
  379.     '' Terminate if unhandled fatal error
  380.     if ERR <> 0 then
  381.         goto Quit
  382.     endif
  383.  
  384.     if DoesDirExist(MakePath(dirSHGM$,"DATA")) = 0 then
  385.         CreateDir MakePath(dirSHGM$,"DATA"), cmoNone
  386.     endif
  387.     SetRestartDir dirSHGM$
  388.     '' Terminate if unhandled fatal error
  389.     if ERR <> 0 then
  390.         goto Quit
  391.     endif
  392.  
  393.     ExitCode% = EXITSUCCESS
  394.  
  395. '*-------------------------[ Check if Win32s needed ]-----------------------*'
  396.     if OnWindowsNT() then
  397.         dputs("    Windows NT detected")
  398.         if GetWindowsMajorVersion * 100 + GetWindowsMinorVersion < 350 then
  399.             dputs(ErrStr$ + "Windows NT version was less than 3.5")
  400.             ExitCode% = sysfailNT31
  401.             goto Quit
  402.         else
  403.             dputs("    Version of WinNT is at least 3.5")
  404.             dputs("    Win32s install is NOT required")
  405.             ExitCode% = EXITSUCCESS
  406.             win32Enabled% = 1
  407.             okW32S% = 1
  408.             goto CheckForWinG
  409.         endif
  410.     endif
  411.  
  412.     '' Check that we are not running on Chicago, including pre-released
  413.     '' Chicago versions.
  414.     if GetWindowsMajorVersion * 100 + GetWindowsMinorVersion > 350 then
  415.         dputs("    Pre-release Chicago or Win95 detected")
  416.         dputs("    Win32s install is NOT required")
  417.         ExitCode% = EXITSUCCESS
  418.         win32Enabled% = 1
  419.         okW32S% = 1
  420.         goto CheckForWinG
  421.     endif
  422.  
  423. '*----------------------------[ Check for Win32s ]--------------------------*'
  424.     '' We're on Win3.1x or WFW3.1x
  425.     ''
  426.     onWin31% = 1
  427.     dputs("    Windows 3.1x detected")
  428.  
  429.     '' Make sure paging has been enabled
  430.     if PagingEnabled() = 0 then
  431.         dputs(ErrStr$ + "Virtual memory (paging) is not enabled")
  432.         ExitCode% = sysfailNOTPAGING   '' Enhanced mode but not paging
  433.         goto Quit
  434.     endif
  435.  
  436.     '' Make sure share has been enabled
  437.     '' Failure to have SHARE enabled is not fatal, we just inform the
  438.     '' user that he/she should setup Windows to have SHARE enabled
  439.     ''
  440.     if ShareEnabled() = 0 then
  441. PromptNoShare:
  442.         sz$ = UIStartDlg(CUIDLL$, dlgNO_SHARE, "FInfoDlgProc", hlpNO_SHARE, HELPPROC$)
  443.         UIPop 1
  444.         if sz$ = "REACTIVATE" then
  445.             goto PromptNoShare
  446.         elseif sz$ <> "CONTINUE" then
  447.             ExitCode% = exitQUIT
  448.             goto Quit
  449.         endif
  450.     endif
  451.  
  452.     '' Get version of Win32s to be installed from version info in .INF file
  453.     szNewVer$ = GetSectionKeyVersion("WindowsSystem", "win32s16.dll")
  454.  
  455.     dputs("---- Checking Win32s presence")
  456.  
  457.     '' Check if Win32s is partially installed by determining if
  458.     '' WIN32S.INI file exists
  459.     dputs("    Checking for existence of file WIN32S.INI")
  460.     if DoesIniKeyExist(dirWinSys$ + "WIN32S.INI", "Win32s", "Setup") = 0 then
  461.         dputs("    WIN32S.INI file was NOT found")
  462.         prevW32s% = verNOT_EXIST    '' no WIN32S.INI file found (no Win32s found)
  463.         goto Win32sCheckDone
  464.     endif
  465.     dputs("    WIN32S.INI file was found")
  466.  
  467.     ''
  468.     sz$ = GetIniKeyString (dirWinSys$ + "WIN32S.INI", "Win32s", "Setup")
  469.  
  470.     '' If Setup key in WIN32S.INI is not valid then suggest re-install
  471.     ''
  472.     if sz$ <> "1" then
  473.         dputs("    [Setup] section in WIN32S.INI describes previous install failure")
  474.         prevW32s% = verINCOMPLETE   '' Previously incomplete install detected
  475.         goto Win32sCheckDone
  476.     endif
  477.  
  478.     '' If Win32s is already installed, get running version number
  479.     ''
  480.     i% = DoesFileExist( dirWinSys$ + "W32SYS.DLL", femExists )
  481.     if i% <> 1 then
  482.         prevW32s% = verINCOMLPETE   '' no W32SYS.DLL found (no Win32s found)
  483.         goto Win32sCheckDone
  484.     endif
  485.  
  486.     i% = IsWin32sLoaded(szW32OldVer$)
  487.     if i% = 0 then
  488.         prevW32s% = verINCOMPLETE   '' Previously incomplete install detected
  489.         goto Win32sCheckDone
  490.     endif
  491.  
  492.     if szW32sOldJVer$ = szW32OldVer$ then
  493.         dputs("    Current installed version of Win32s is " + szW32sCurJVer$)
  494.     endif
  495.  
  496.     if szW32sOldJVer$ <> szW32OldVer$ then
  497.         dputs("    Current installed version of Win32s is " + szW32OldVer$)
  498.     endif
  499.  
  500.     '' If older Win32s, then tell user that we would like to overwrite
  501.     if szW32sOldJVer$ > szW32OldVer$ then
  502.         prevW32s% = verIS_OLDER     '' Old version found
  503.         goto Win32sCheckDone
  504.     endif
  505.  
  506.     '' Newer or equal version detected on system
  507.     if szW32sOldJVer$ = szW32OldVer$ then
  508.         dputs("    Identical version of Win32s files detected")
  509.         dputs("")
  510.         dputs("--- Now checking to make sure that all required Win32s")
  511.         dputs("    files are present on the system")
  512.         dputs("")
  513.  
  514.         if DoesSectionFilesExist("WindowsSystemWin32s",dirWinSysWin32s$,dlgSCANW32S) <> 1 then
  515.             dputs("    Since one or more Win32s files are missing,")
  516.             dputs("    a Win32s re-install is recommended")
  517.             dputs("")
  518.             prevW32s% = verSAME_BUT_MISSING '' Same version detected,
  519.             goto Win32sCheckDone
  520.         elseif DoesSectionFilesExist("WindowsSystem",dirWinSys$,dlgSCANW32S) <> 1 then
  521.             dputs("    Since one or more Win32s files are missing,")
  522.             dputs("    a Win32s re-install is recommended")
  523.             dputs("")
  524.             prevW32s% = verSAME_BUT_MISSING '' Same version detected,
  525.             goto Win32sCheckDone
  526.         endif
  527.  
  528.         prevW32s% = verSAME_AND_VALID   '' Valid Win32s already present
  529.         okW32S% = 1
  530.     else
  531.         prevW32s% = verIS_NEWER '' Newer Win32s detected
  532.         okW32S% = 1
  533.     endif
  534.  
  535.     win32Enabled% = 1           '' say Win32s already enabled
  536.     goto Win32sCheckDone
  537.  
  538. Win32sCheckDone:
  539.  
  540. '*------------------[ Confirm Win32s Install/Skip-install ]-----------------*'
  541.     dlg% = prevW32s% + dlgW32S
  542.     dlgHelp% = dlg% + hlpOFFSET
  543.  
  544.     if prevW32s% = verNOT_EXIST then
  545.         dputs("Win32s was not detected: install of Win32s suggested")
  546.     elseif prevW32s% = verINCOMPLETE then
  547.         dputs("Win32s install suggested: previous install was incomplete")
  548.     elseif prevW32s% = verIS_OLDER then
  549.         dputs("Win32s install suggested: older version detected")
  550.     elseif prevW32s% = verSAME_BUT_MISSING then
  551.         dputs("Win32s install suggested: One or more Win32s files were missing")
  552.     elseif prevW32s% = verSAME_AND_VALID then
  553.         dputs("Win32s install NOT suggested: A valid Win32s exists")
  554.     elseif prevW32s% = verIS_NEWER then
  555.         dputs("Win32s install NOT suggested: A newer Win32s exists")
  556.     else
  557.         dputs("Internal error")
  558.         error STFERR
  559.     endif
  560.  
  561. PromptNotifyWin32sInstall:
  562.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", dlgHelp%, HELPPROC$)
  563.     if (sz$ = "EXIT") or (sz$ = "CANCEL") then
  564.         gosub AskQuit
  565.         goto PromptNotifyWin32sInstall
  566.     elseif sz$ = "REACTIVATE" then
  567.         goto PromptNotifyWIn32sInstall
  568.     elseif sz$ = "CONTINUE" then
  569.         '' User chose CONTINUE or INSTALL
  570.         UIPop 1
  571.         if (prevW32s% = verSAME_AND_VALID) or (prevW32s% = verIS_NEWER) then
  572.             '' Button was CONTINUE
  573.             goto CheckForWinG
  574.         else
  575.             '' Button was INSTALL
  576.             goto DoW32sInstall
  577.         endif
  578.     else
  579.         '' User chose SKIP, or OVERWRITE
  580.         if (prevW32s% = verSAME_AND_VALID) or (prevW32s% = verIS_NEWER) then
  581.             '' Button was OVERWRITE
  582.             if (ConfirmDialog(dlgCONFIRM_OVER_W32S) = 1) then
  583.                 UIPop 1
  584.                 dputs("*** Though Win32s install is not recommended,")
  585.                 dputs("    User has chosen to overwrite existing Win32s files")
  586.                 goto DoW32sInstall
  587.             else
  588.                 ''UIPop 1
  589.                 goto PromptNotifyWin32sInstall
  590.             endif
  591.         else
  592.             '' Button was SKIP
  593.             if (ConfirmDialog(dlgCONFIRM_SKIP_W32S) = 1) then
  594.                 dputs("*** Though Win32s install is suggested,")
  595.                 dputs("    User has chosen not to (re)install Win32s")
  596.                 warnNeedW32s% = 1   '' warn user later
  597.                 UIPop 1
  598.                 goto CheckForWinG
  599.             else
  600.                 ''UIPop 1
  601.                 goto PromptNotifyWin32sInstall
  602.             endif
  603.         endif
  604.         UIPop 1
  605.     endif
  606.  
  607. DoW32SInstall:
  608.     '' Make sure Win32s has not already been installed and
  609.     '' currently providing services for a Win32s application
  610.     if (IsRunningApp() <> 0) then
  611.         dputs("Win32s can not be (re)installed: A Win32 application is running")
  612.         ExitCode% = sysFAILRUNAPP
  613.         goto Quit
  614.     endif
  615.  
  616.     '' Add Win32s files to copy list
  617.     dputs("---- User chose to install Win32s, adding Win32s files to global copy list")
  618.     instW32S% = 1
  619.     W32SAddToCopyList
  620.  
  621. '*----------------------[ Check if WinG install needed ]--------------------*'
  622. CheckForWinG:
  623.     dputs("---- Checking for WinG presence")
  624.  
  625.     dputs("    Checking for existence of file WING.DLL in Windows System directory")
  626.     if DoesFileExist(dirWinSys$ + "wing.dll", femExists) <> 1 then
  627.         dputs("    WING.DLL not found (WinG not install), WinG install suggested")
  628.         prevWinG% = verNOT_EXIST    '' no WinG detected
  629.         goto WinGCheckDone
  630.     endif
  631.  
  632.     szNewVer$ = GetSectionKeyVersion("WinG", "wing.dll")
  633.     szCurrVer$ = GetVersionOfFile(dirWinSys$ + "wing.dll")
  634.  
  635.     dputs("    WinG found on system")
  636.     dputs("    Supplied version is: " + szNewVer$)
  637.     dputs("    Current version is:  " + szCurrVer$)
  638.     if (szNewVer$ > szCurrVer$) then
  639.         dputs("    Older version of WinG was found, WinG re-install recommended")
  640.         prevWinG% = verIS_OLDER
  641.     elseif (szNewVer$ < szCurrVer$) then
  642.         dputs("    Newer version of WinG was found, WinG install is NOT suggested")
  643.         prevWinG% = verIS_NEWER '' newer version found
  644.     elseif (szNewVer$ = szCurrVer$) then
  645.         dputs("    Same version detected")
  646.         dputs("")
  647.         dputs("--- Now checking to make sure that all required WinG")
  648.         dputs("    files are present on the system")
  649.         dputs("")
  650.         if DoesSectionFilesExist("WinG",dirWinSys$,dlgSCANWING) <> 1 then
  651.             dputs("    Since one or more WinG files are missing,")
  652.             dputs("    a WinG re-install is recommended")
  653.             dputs("")
  654.             prevWinG% = verSAME_BUT_MISSING '' Some files are missing
  655.         else
  656.             dputs("    WinG configuration seems valid, WinG install is NOT suggested")
  657.             prevWinG% = verSAME_AND_VALID   '' version is equivalent and files exist
  658.         endif
  659.     endif
  660.  
  661. WinGCheckDone:
  662.     if (prevWinG% = verSAME_AND_VALID) then
  663.         dputs("Newer version of WinG found, WinG install NOT suggested")
  664.     elseif (prevWinG% = verIS_NEWER) then
  665.         dputs("Valid version of WinG found, WinG install NOT suggested")
  666.     else
  667.         dputs("WinG installation suggested")
  668.     endif
  669.  
  670.     dlg% = prevWinG% + dlgWING
  671.     dlgHelp% = dlg% + hlpOFFSET
  672.     if prevWinG% = verNOT_EXIST then
  673.         dputs("WinG was not detected: install of WinG suggested")
  674.     elseif prevWinG% = verIS_OLDER then
  675.         dputs("WinG install suggested: older version detected")
  676.     elseif prevWinG% = verSAME_BUT_MISSING then
  677.         dputs("WinG install suggested: One or more WinG files were missing")
  678.     elseif prevWinG% = verSAME_AND_VALID then
  679.         dputs("WinG install NOT suggested: A valid WinG exists")
  680.     elseif prevWinG% = verIS_NEWER then
  681.         dputs("WinG install NOT suggested: A newer WinG exists")
  682.     else
  683.         '' Internal error
  684.         dputs("**** Internal error ****")
  685.     endif
  686.  
  687. PromptWinGInstall:
  688.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", dlgHelp%, HELPPROC$)
  689.     if (sz$ = "EXIT") or (sz$ = "CANCEL") then
  690.         gosub AskQuit
  691.         goto PromptWinGInstall
  692.     elseif sz$ = "REACTIVATE" then
  693.         goto PromptWinGInstall
  694.     elseif sz$ = "CONTINUE" then
  695.         '' User chose CONTINUE or INSTALL
  696.         UIPop 1
  697.         if (prevWinG% = verSAME_AND_VALID) or (prevWinG% = verIS_NEWER) then
  698.             '' Button was CONTINUE
  699.             goto CheckWinDriveCosts
  700.         else
  701.             '' Button was INSTALL
  702.             goto DoWinGInstall
  703.         endif
  704.     else
  705.         '' User chose SKIP, or OVERWRITE
  706.         if (prevWinG% = verSAME_AND_VALID) or (prevWinG% = verIS_NEWER) then
  707.             '' Button was OVERWRITE
  708.             if (ConfirmDialog(dlgCONFIRM_OVER_WING) = 1) then
  709.                 UIPop 1
  710.                 dputs("*** Though WinG install is not recommended,")
  711.                 dputs("    User has chosen to overwrite existing WinG files")
  712.                 goto DoWinGInstall
  713.             else
  714.                 ''UIPop 1
  715.                 goto PromptWinGInstall
  716.             endif
  717.         else
  718.             '' Button was SKIP
  719.             if (ConfirmDialog(dlgCONFIRM_SKIP_WING) = 1) then
  720.                 dputs("*** Though WinG install is suggested,")
  721.                 dputs("    User has chosen not to (re)install WinG")
  722.                 warnNeedWING% = 1
  723.                 UIPop 1
  724.                 goto CheckWinDriveCosts
  725.             else
  726.                 ''UIPop 1
  727.                 goto PromptWinGInstall
  728.             endif
  729.         endif
  730.         UIPop 1
  731.     endif
  732.  
  733. DoWinGInstall:
  734.     '' XXX If possible, make sure WinG is not currently running and providing
  735.     '' services to an application
  736.  
  737.     '' Add WinG files to copy list
  738.     dputs("---- User chose to install WinG, adding WinG files to global copy list")
  739.     instWING% = 1
  740.     WINGAddToCopyList
  741.  
  742. '*-------------------[ Check cost of installing W32s/WinG ]-----------------*'
  743.  
  744. CheckWinDriveCosts:
  745.     CursorSave% = ShowWaitCursor()
  746. CWDC:
  747.     sz$ = UIStartDlg(CUIDLL$,dlgCHECKSPACE,"FModelessDlgProc", 0, "")
  748.     if sz$ = "REACTIVATE" then
  749.         goto CWDC
  750.     endif
  751.  
  752.     dputs("---- Determining disk space needs")
  753.     i% = GetCopyListCost("",driveNeeds$,"")
  754.     lenList% = GetListLength(driveNeeds$)
  755.     for i% = 1 to 26 step 1
  756.         cost& = val(GetListItem(driveNeeds$,i%))
  757.         if (cost& <> 0) then
  758.             '' Determine drive
  759.             w$ = chr$(i% + asc("A") - 1)
  760.             if GetFreeSpaceForDrive(w$) < cost& then
  761.                 '' Insufficient disk space to update Windows
  762.                 UIPop 1
  763.                 RestoreCursor CursorSave%
  764.                 ExitCode% = dlgBADDISKSPACEEXT
  765.                 goto Quit
  766.             endif
  767.         endif
  768.     next i%
  769.  
  770.     UIPop 1
  771.     RestoreCursor CursorSave%
  772.     ClearCopyList
  773.  
  774.  
  775. '*-------------------------[ Perform Win32s Install ]-----------------------*'
  776.     if instW32S% = 0 then
  777.         goto InstallWinG
  778.     endif
  779.  
  780.     dputs("---- Now installing Win32s")
  781.  
  782.     '' Indicate Win32s install failure until all files known to be copied.
  783.     ''
  784.     if DoesIniKeyExist(dirWinSys$ + "WIN32S.INI", "Win32s", "Setup") = 0 then
  785.         CreateIniKeyValue dirWinSys$ + "WIN32S.INI", "Win32s", "Setup", "0", cmoOverwrite
  786.     endif
  787.  
  788.     ExitCode% = exitFAILW32S
  789.     ERR = 0
  790.     CreateDir dirWinSysWin32s$, cmoNone
  791.     InstallWin32sFiles
  792.  
  793. ''XXX will ERR always be 0 on success? (even if files could not be
  794. ''copied and had to be put into the restart list?)
  795. ''
  796.     '' Terminate if unhandled fatal error
  797.     if ERR <> 0 then
  798.         goto Quit
  799.     endif
  800.  
  801.     '' Make backup of SYSTEM.INI
  802.     '' Add/Update "device=W32S.386" to SYSTEM.INI under [386Enh]
  803.     '' Add/Update "drivers=mmsystem.dll winmm16.dll" to SYSTEM.INI under [boot]
  804.     ''
  805.     if (systemIniBackedUp% = 0) then
  806.         dputs("Creating backup of SYSTEM.INI")
  807.         dputs("  backup name: " + MakePath(dirSHGM$,"SYSTEM.SGM"))
  808.         CopyFile MakePath(GetWindowsDir,"SYSTEM.INI"),MakePath(dirSHGM$,"SYSTEM.SGM"),cmoForce,0
  809.         systemIniBackedUp% = 1
  810.     endif
  811.     '' Terminate if unhandled fatal error
  812.     if ERR <> 0 then
  813.         goto Quit
  814.     endif
  815.  
  816.  
  817.     dputs("Updating SYSTEM.INI file:")
  818.     dputs("  adding device=W32SYS.386 statement to SYSTEM.INI")
  819.     t% = UpdateIniW32S()
  820.     if t% = 0 then
  821.         dputs(ErrStr$ + "Win32s install failure: Unable to Update SYSTEM.INI")
  822.         goto Quit
  823.     endif
  824.  
  825.     '' Terminate if unhandled fatal error
  826.     if ERR <> 0 then
  827.         goto Quit
  828.     endif
  829.  
  830.  
  831.     '' Update WIN32S.INI file
  832.     ''
  833.     dputs("Updating WIN32S.INI")
  834.     CreateIniKeyValue dirWinSys$ + "WIN32S.INI", "Win32s", "Setup", "1", cmoOverwrite
  835.     CreateIniKeyValue dirWinSys$ + "WIN32S.INI", "Win32s", "Version", szNewVer$, cmoOverwrite
  836.     CreateIniKeyValue dirWinSys$ + "WIN32S.INI", "Nls", "AnsiCP", "932", cmoOverwrite
  837.  
  838.     '' Indicate Win32s correctly copied and installed.
  839.     ExitCode% = EXITSUCCESS
  840.  
  841. '*---------------------------[ Install WinG files ]-------------------------*'
  842. InstallWinG:
  843.     if instWING% = 0 then
  844.         goto InstallSHGM
  845.     endif
  846.  
  847.     dputs("---- Installing WinG files")
  848.     ExitCode% = exitFAILWING
  849.     ERR = 0
  850.     InstallWinGFiles
  851.  
  852.     '' Terminate if unhandled fatal error
  853.     if ERR <> 0 then
  854.         goto QUIT
  855.     endif
  856.  
  857.     '' Backup SYSTEM.INI if we haven't already done so
  858.     '' Make sure DVA.386 is setup correctly in SYSTEM.INI
  859.     if InstallVFlatD <> 0 then
  860.         if (systemIniBackedUp% = 0) then
  861.             dputs("Creating backup of SYSTEM.INI")
  862.             dputs("  backup name: " + MakePath(dirSHGM$,"SYSTEM.SGM"))
  863.             CopyFile MakePath(GetWindowsDir,"SYSTEM.INI"),MakePath(dirSHGM$,"SYSTEM.SGM"),cmoForce,0
  864.             systemIniBackedUp% = 1
  865.         endif
  866.  
  867. ''XXX
  868. CopyFile MakePath(GetWindowsDir,"SYSTEM.INI"),MakePath(dirSHGM$,"SYSTEM.SG1"),cmoForce,0
  869.  
  870.         dputs("Updating SYSTEM.INI file:")
  871.         dputs("  Adding device=DVA.386 statement to SYSTEM.INI")
  872.         t% = UpdateIniWING()
  873.         if t% = 0 then
  874.             dputs(ErrStr$ + "WinG install failure: Unable to update SYSTEM.INI")
  875.             goto Quit
  876.         endif
  877.     endif
  878.  
  879.     '' Terminate if unhandled fatal error
  880.     if ERR <> 0 then
  881.         goto QUIT
  882.     endif
  883.  
  884.     '' Indicate WinG correctly copied and installed.
  885.     ExitCode% = EXITSUCCESS
  886.  
  887.  
  888. '*------------------------------[ Install SHGM ]----------------------------*'
  889. InstallSHGM:
  890.     dputs("---- Installing SHGM files")
  891.     ExitCode% = exitFAILWING
  892.     ERR = 0
  893.     InstallSHGMFiles
  894.     '' Terminate if unhandled fatal error
  895.     if ERR <> 0 then
  896.         goto QUIT
  897.     endif
  898.  
  899.     '' Have shell program (Program Manager) associate .SHV files with
  900.     '' SHGM.EXE if it doesn't already do it
  901.     ''
  902.     if DoesIniKeyExist("WIN.INI", "Extensions", "SHV") = 0 then
  903.         dputs("Creating backup of WIN.INI")
  904.         CopyFile MakePath(GetWindowsDir,"WIN.INI"),MakePath(dirSHGM$,"WIN.SGM"),cmoForce,0
  905.         dputs("  backup name: " + MakePath(dirSHGM$,"WIN.SGM"))
  906.         dputs("  Adding .SHV extension association to [Extensions]")
  907.  
  908.         dputs("  section of WIN.INI file")
  909.         CreateIniKeyValue "WIN.INI", "Extensions", "SHV", "shgm.exe ^.SHV", cmoNone
  910.     endif
  911.  
  912.     '' Create program group and items
  913.     ''
  914.     if (instVers$ = verSKU$) then
  915.         CreateProgmanGroup "Activision", "", cmoNone
  916.         ShowProgmanGroup  "Activision", 1, cmoNone
  917.         CreateProgmanItem "Activision", "ÅπèC âOâîü[âgâéü[âüâôâc", MakePath(dirSHGM$,"shgm.exe"), "", cmoOverwrite
  918.     elseif (instVers$ = verPOP$) then
  919.         CreateProgmanGroup "Activision", "", cmoNone
  920.         ShowProgmanGroup  "Activision", 1, cmoNone
  921.         CreateProgmanItem "Activision", "ÅπèC âOâîü[âgâéü[âüâôâc æ╠î▒ö┼", MakePath(dirSHGM$,"shgm.exe"), "", cmoOverwrite
  922.     else '' instVers$ = verCVR$
  923.         CreateProgmanGroup "Activision", "", cmoNone
  924.         ShowProgmanGroup  "Activision", 1, cmoNone
  925.         CreateProgmanItem "Activision", "ÅπèC âOâîü[âgâéü[âüâôâc ÄGÄÅùpæ╠î▒ö┼", MakePath(dirSHGM$,"shgm.exe"), "", cmoOverwrite
  926.     endif
  927.     CreateProgmanItem "Activision", "ÅπèCâïü[âï", MakePath(dirSHGM$,"shgm.hlp"), "", cmoOverwrite
  928.     CreateProgmanItem "Activision", "ÅπèC âgâëâuâïâVâàü[âeâBâôâO", MakePath(dirSHGM$,"techhelp.wri"), "", cmoOverwrite
  929.  
  930.     '' Indicate SHGM correctly copied and installed.
  931.     ''
  932.     ExitCode% = EXITSUCCESS
  933.  
  934. '*--------------------------[ End install process ]-------------------------*'
  935. QUIT:
  936.     '' Install error handler for final message box routines
  937.     err% = ERR
  938.     ON ERROR goto ERRQUIT
  939.     if err% = 0 then
  940.         dlg% = ExitCode%        '' exit dialog based on ExitCode
  941.     elseif err% = STFQUIT then
  942.         dlg% = exitQUIT
  943.         ExitCode% = exitQUIT    '' user chose to quit install failure
  944.     else
  945.         dlg% = exitFAILURE      '' non-specific install failure
  946.         ExitCode% = exitQUIT
  947.     endif
  948.  
  949.     '' If install was successful, then say so
  950.     '' Note: if user chose not to (re)install either Win32s or WinG
  951.     '' then inform user that the game will not function correctly
  952.     '' until Win32s and WinG are present
  953.     ''
  954.     if dlg% = EXITSUCCESS then
  955.         if (warnNeedWING% <> 0) and (warnNeedW32S% <> 0) then
  956.             dlg% = dlgOK_NEED_W32S_WING
  957.         elseif (warnNeedWING% <> 0) then
  958.             dlg% = dlgOK_NEED_WING
  959.         elseif (warnNeedW32S% <> 0) then
  960.             dlg% = dlgOK_NEED_W32S
  961.         endif
  962.     endif
  963.  
  964. QUITL1:
  965.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  966.     if sz$ = "REACTIVATE" then
  967.         goto QUITL1
  968.     endif
  969.     UIPop 1
  970.  
  971.  
  972.     if ExitCode% <> EXITSUCCESS then
  973.         dputs(ErrStr$ + "Install failure")
  974.         CloseLogFile
  975.         boolLog% = 0
  976.         end '' End script!
  977.     endif
  978.  
  979.  
  980. '*-----------------------[ Install Ok, Attempt Reboot ]---------------------*'
  981.     if RestartListEmpty = 0 then
  982.         dputs("--- Restart list is not empty (files were locked)")
  983.         dputs("    Windows MUST be restarted to complete file installation")
  984.         dlg% = dlgRESTART_MUST
  985.     else
  986.         dputs("--- Restart list is empty ")
  987.         dputs("    Windows restart is suggested")
  988.         dlg% = dlgRESTART_PLEASE
  989.     endif
  990.  
  991.  
  992. AskReboot:
  993.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  994.     if sz$ = "REACTIVATE" then
  995.         goto AskReboot
  996.     endif
  997.     UIPop 1
  998.  
  999.     '' return code is alwyas "CONTINUE" unless dialog box
  1000.     '' alloed an "EXIT" button
  1001.     ''
  1002.     if sz$ <> "CONTINUE" then
  1003.         dputs("--- User chose not to restart Windows")
  1004.         CloseLogFile
  1005.         boolLog% = 0
  1006.         end '' END SCRIPT!
  1007.     endif
  1008.  
  1009.  
  1010.     dputs("--- Attempting to restart Windows")
  1011.  
  1012.     CloseLogFile
  1013.     boolLog% = 0
  1014.  
  1015.     if RebootSystem = 0 then
  1016.         if RestartListEmpty = 1 then
  1017.             i% = DoMsgBox("Shanghai Great Moments may not run correctly until you restart Windows.", "Unable to Restart Windows", MB_ICONEXCLAMATION+MB_OK+MB_TASKMODAL)
  1018.         else
  1019.             i% = DoMsgBox("Fatal install failure. Please reinstall Shanghai Great Moments.", "Unable to Restart Windows", MB_ICONEXCLAMATION+MB_OK+MB_TASKMODAL)
  1020.         endif
  1021.     endif
  1022.     end '' End script
  1023.  
  1024. '*----------------------------------------------------------------------------*
  1025. '*
  1026. '* Fatal error handler for error message routine
  1027. '*
  1028. '*----------------------------------------------------------------------------*
  1029. ERRQUIT:
  1030.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  1031.     end '' End script
  1032.  
  1033. '*----------------------------------------------------------------------------*
  1034. '*
  1035. '* Bypass run-time errors. Let final dialog box display fatal error message.
  1036. '*
  1037. '*----------------------------------------------------------------------------*
  1038. ERRNORMAL:
  1039.     '' Check if user cancelled setup
  1040.     if ERR = STFQUIT then
  1041.         goto QUIT
  1042.     endif
  1043.     RESUME NEXT
  1044.  
  1045.  
  1046. '*----------------------------------------------------------------------------*
  1047. '*
  1048. '* func:    Presents user with a 'bad path' msgbox
  1049. '*
  1050. '*
  1051. '*----------------------------------------------------------------------------*
  1052. BadPath:
  1053.     sz$ = UIStartDlg(CUIDLL$, dlgBADPATH, "FInfo0DlgProc", 0, "")
  1054.     if sz$ = "REACTIVATE" then
  1055.         goto BADPATH
  1056.     endif
  1057.     UIPop 1
  1058.     return
  1059.  
  1060. '*----------------------------------------------------------------------------*
  1061. '*
  1062. '* func:    Presents user with a 'insufficient space' msgbox
  1063. '*
  1064. '*
  1065. '*----------------------------------------------------------------------------*
  1066. BadDriveSpace:
  1067.     sz$ = UIStartDlg(CUIDLL$, dlgBADDISKSPACE, "FInfo0DlgProc", 0, "")
  1068.     if sz$ = "REACTIVATE" then
  1069.         goto BadDriveSpace
  1070.     endif
  1071.     UIPop 1
  1072.     return
  1073.  
  1074. '*----------------------------------------------------------------------------*
  1075. '*
  1076. '* func:    Presents user with a 'bad drive' msgbox
  1077. '*
  1078. '*
  1079. '*----------------------------------------------------------------------------*
  1080. BadDrive:
  1081.     sz$ = UIStartDlg(CUIDLL$, dlgBADDRIVE, "FInfo0DlgProc", 0, "")
  1082.     if sz$ = "REACTIVATE" then
  1083.         goto BADDRIVE
  1084.     endif
  1085.     UIPop 1
  1086.     return
  1087.  
  1088. '*----------------------------------------------------------------------------*
  1089. '*
  1090. '* func:    Provide an abort install dialog box
  1091. '*
  1092. '* rets:    Returns to caller if user chose to continue
  1093. '*          otherwise, script (install process) is terminated
  1094. '*
  1095. '*----------------------------------------------------------------------------*
  1096. AskQuit:
  1097.     sz$ = UIStartDlg(CUIDLL$, dlgASKQUIT, "FQuitDlgProc", 0, "")
  1098.  
  1099.     if sz$ = "EXIT" then
  1100.         UIPopAll
  1101.         ERROR STFQUIT
  1102.     elseif sz$ = "REACTIVATE" then
  1103.         goto AskQuit
  1104.     else
  1105.         UIPop 1
  1106.     endif
  1107.     return
  1108.  
  1109.  
  1110.  
  1111. '*----------------------------------------------------------------------------*
  1112. '*
  1113. '* func:    Builds the copy list for the required Win32 files
  1114. '*          and copies to destination directories
  1115. '*          (also removes any outdated files)
  1116. '*
  1117. '*
  1118. '*
  1119. '*----------------------------------------------------------------------------*
  1120. sub InstallWin32sFiles STATIC
  1121.     ClearCopyList
  1122.     W32SAddToCopyList
  1123.     CopyFilesInCopyList
  1124.     ClearCopyList
  1125. end sub
  1126.  
  1127. '*----------------------------------------------------------------------------*
  1128. '*
  1129. '* func:    Builds the copy list for the required SHGM files
  1130. '*          and copies to destination directories
  1131. '*
  1132. '*
  1133. '*----------------------------------------------------------------------------*
  1134. sub InstallSHGMFiles STATIC
  1135.     ClearCopyList
  1136.     SHGMAddToCopyList
  1137.     CopyFilesInCopyList
  1138.     ClearCopyList
  1139. end sub
  1140.  
  1141. '*----------------------------------------------------------------------------*
  1142. '*
  1143. '* func:    Builds the copy list for the required Win32 files
  1144. '*          and copies to destination directories
  1145. '*          (also removes any outdated files)
  1146. '*
  1147. '*
  1148. '*
  1149. '*----------------------------------------------------------------------------*
  1150. sub InstallWinGFiles STATIC
  1151.     ClearCopyList
  1152.     WINGAddToCopyList
  1153.     CopyFilesInCopyList
  1154.     ClearCopyList
  1155. end sub
  1156.  
  1157. '*----------------------------------------------------------------------------*
  1158. '*
  1159. '*----------------------------------------------------------------------------*
  1160.  
  1161. function RebootSystem STATIC AS INTEGER
  1162.     '' ExitExecRestart() will restart Windows, cleanup setup
  1163.     '' files, and copy over locked files before Windows restarts.
  1164.     ''
  1165.     i% = RestartListEmpty()
  1166.     if i% = 0 then
  1167.         '' ExitExecRestart() only returns if applications refuse to be shutdown.
  1168.         '' Win32s is installed but will not operate until Windows is restarted
  1169.         '' and the Win32s VxD is loaded.
  1170.         ''
  1171.         i% = ExitExecRestart()
  1172.         RebootSystem = 0
  1173.     else
  1174.         '' If the RestartList list is empty, it is necessary to restart windows
  1175.         '' directly.  The MSSETUP program creates _MSRSTRT.EXE and _MSSETUP.BAT
  1176.         '' in the restart directory.  This program should be exec'd to handle
  1177.         '' proper MSSETUP cleanup (temp files) and restart Windows.
  1178.         ''
  1179.         i% = ExitWindowsExec( GetWindowsDir() + "_MSRSTRT.EXE", "_MSSETUP.BAT" )
  1180.         RebootSystem = 0
  1181.     endif
  1182. end function
  1183.  
  1184.  
  1185. '*----------------------------------------------------------------------------*
  1186. '*
  1187. '* func:    Appends a file name to the end of a directory path,
  1188. '*          inserting a backslash character as needed.
  1189. '*
  1190. '*
  1191. '* args:    szDir$  - full directory path (with optional ending "\")
  1192. '*          szFile$ - filename to append to directory
  1193. '*
  1194. '* rets:    Resulting fully qualified path name.
  1195. '*
  1196. '*----------------------------------------------------------------------------*
  1197. function MakePath (szDir$, szFile$) STATIC AS STRING
  1198.     if szDir$ = "" then
  1199.         MakePath = szFile$
  1200.     elseif szFile$ = "" then
  1201.         MakePath = szDir$
  1202.     elseif MID$(szDir$, LEN(szDir$), 1) = "\" then
  1203.         MakePath = szDir$ + szFile$
  1204.     else
  1205.         MakePath = szDir$ + "\" + szFile$
  1206.     endif
  1207. end function
  1208.  
  1209. '*----------------------------------------------------------------------------*
  1210. '*
  1211. '*
  1212. '*
  1213. '*
  1214. '*----------------------------------------------------------------------------*
  1215. sub dputs(arg1$) static
  1216. '$ifdef MYDEBUG
  1217.     i% = OutputDebugString(arg1$+chr$(13)+chr$(10))
  1218. '$endif
  1219.     '' Also print out to log file
  1220.     if boolLog% <> 0 then
  1221.         WriteToLogFile arg1$
  1222.     endif
  1223. end sub
  1224.  
  1225. '*----------------------------------------------------------------------------*
  1226. '*
  1227. '*
  1228. '*
  1229. '*
  1230. '*----------------------------------------------------------------------------*
  1231. function DoesSectionFilesExist(szSection$,szDirPath$,dlgId%) static as integer
  1232.     '' find out if the directory where the files should be actually exists
  1233.     result% = 0
  1234.     CursorSave% = ShowWaitCursor()
  1235. DSFE1:
  1236.     sz$ = UIStartDlg(CUIDLL$,dlgID%,"FModelessDlgProc", 0, "")
  1237.     if sz$ = "REACTIVATE" then
  1238.         goto DSFE1
  1239.     endif
  1240.  
  1241.     dputs("Checking if following directory already exists")
  1242.     dputs("Directory: " + szDirPath$)
  1243.     if DoesDirExist(szDirPath$) = 0 then
  1244.         dputs("Above directory does not already exist")
  1245.         goto DSFE
  1246.     endif
  1247.     dputs("Yes, the above directory already exists")
  1248.  
  1249.     '' make a list of the necessary Win32s files in the Win32s directory
  1250.     ''
  1251.     MakeListFromSectionKeys "MY_LIST" , szSection$
  1252.     numFiles% = GetListLength("MY_LIST")
  1253.     result% = 1
  1254.  
  1255.     '' now make sure every file exists
  1256.     dputs("Now checking to see if following files exist in above directory")
  1257.     for i% = 1 to numFiles% step 1
  1258.         currItem$ = GetListItem("MY_LIST",i%)
  1259.         dputs("- " + currItem$)
  1260.         if DoesFileExist(szDirPath$ + currItem$, femExists) = 0 then
  1261.             dputs("  *MISSING*")
  1262.             result = 0
  1263.         else
  1264.             dputs("  found")
  1265.         endif
  1266.     next i%
  1267.  
  1268.     if (result% = 1) then
  1269.         dputs("All of the above files were present")
  1270.     else
  1271.         dputs("One or more of the above files were missing")
  1272.     endif
  1273.  
  1274. DSFE:
  1275.     UIPop 1
  1276.     RestoreCursor CursorSave%
  1277.     SetSymbolValue "MY_LIST", ""
  1278.     currFile$ = ""
  1279.     DoesSectionFilesExist = result%
  1280. end function
  1281.  
  1282.  
  1283. '' Stuff to determine 256 color capability
  1284. const RASTERCAPS   = 38
  1285. const BITSPIXEL    = 12
  1286. const RC_PALETTE   = 256
  1287.  
  1288. declare function GetDC LIB "USER.EXE" (arg1%) as integer
  1289. declare function ReleaseDC LIB "USER.EXE" (arg1%,arg2%) as integer
  1290. declare function GetDeviceCaps LIB "GDI.EXE" (arg1%,arg2%) as integer
  1291.  
  1292.  
  1293. '*----------------------------------------------------------------------------*
  1294. '*
  1295. '*
  1296. '*
  1297. '*
  1298. '*----------------------------------------------------------------------------*
  1299. function Have256Colors static as integer
  1300.     Have256Colors = 0
  1301.  
  1302.     '' Obtain system DC
  1303.     hDC% = GetDC(0)
  1304.  
  1305.     tmpInt% = GetDeviceCaps(hDC%,RASTERCAPS)
  1306.  
  1307.     if (tmpInt% and RC_PALETTE) then
  1308.         tmpInt% = GetDeviceCaps(hDC%,BITSPIXEL)
  1309.         if (tmpInt% = 8) then
  1310.             Have256Colors = 1
  1311.         endif
  1312.     endif
  1313.     tmpInt% = ReleaseDC(0,hDC%)
  1314.  
  1315. end function
  1316.  
  1317.  
  1318.  
  1319. '*----------------------------------------------------------------------------*
  1320. '*
  1321. '*
  1322. '*
  1323. '*
  1324. '*----------------------------------------------------------------------------*
  1325. function ConfirmDialog(dlgID%) static as integer
  1326. CF1:
  1327.     sz$ = UIStartDlg(CUIDLL$,dlgID%,"FInfoDlgProc", 0, "")
  1328.     if sz$ = "CONTINUE" then
  1329.         ConfirmDialog = 1
  1330.         UIPop 1
  1331.     elseif sz$ = "REACTIVATE" then
  1332.         goto CF1
  1333.     else
  1334.         ConfirmDialog = 0
  1335.         UIPop 1
  1336.     endif
  1337. end function
  1338.  
  1339. '*----------------------------------------------------------------------------*
  1340. '*
  1341. '*
  1342. '*
  1343. '*
  1344. '*----------------------------------------------------------------------------*
  1345. sub W32SAddToCopyList static
  1346.     '' Add Win32s files
  1347.     AddSectionFilesToCopyList "WindowsSystem", SrcDir$, dirWinSys$
  1348.     AddSectionFilesToCopyList "WindowsSystemWin32s", SrcDir$, dirWinSys$ + "WIN32S\"
  1349.     '' Add obsolete files to be removed
  1350.     ''
  1351.     AddSectionFilesToCopyList "Win32sSystemObsoleteFiles", SrcDir$, dirWinSys$ + "WIN32S\"
  1352. end sub
  1353.  
  1354. '*----------------------------------------------------------------------------*
  1355. '*
  1356. '*
  1357. '*
  1358. '*
  1359. '*----------------------------------------------------------------------------*
  1360. function InstallVFlatD static as integer
  1361.     InstallVFLatD = 0
  1362.  
  1363.     '' only use DVA on Windows 3.x
  1364.     ''
  1365.     if onWin31% = 1 then
  1366.         dputs("Checking to see if VFlatD is installed (DVA.386)")
  1367.         if VflatdPresent() = 0 then
  1368.             dputs("VFlatD is not present (DVA.386 driver)")
  1369.             InstallVFlatD = 1
  1370.         else
  1371.             dputs("VFlatD is already installed (DVA.386)")
  1372.         endif
  1373.     endif
  1374. end function
  1375.  
  1376. '*----------------------------------------------------------------------------*
  1377. '*
  1378. '*
  1379. '*
  1380. '*
  1381. '*----------------------------------------------------------------------------*
  1382. sub WINGAddToCopyList static
  1383.     AddSectionFilesToCopyList "WinG", SrcDir$, dirWinSys$
  1384.     if InstallVFlatD <> 0 then
  1385.         AddSectionFilesToCopyList "dva", SrcDir$, dirWinSys$
  1386.     endif
  1387. end sub
  1388.  
  1389. '*----------------------------------------------------------------------------*
  1390. '*
  1391. '*
  1392. '*
  1393. '*
  1394. '*----------------------------------------------------------------------------*
  1395. sub SHGMAddToCopyList static
  1396.     AddSectionFilesToCopyList "SHGM", SrcDir$, dirSHGM$
  1397. end sub
  1398.  
  1399.  
  1400.